home *** CD-ROM | disk | FTP | other *** search
- object fmLookup: TfmLookup
- Left = 204
- Top = 110
- BorderStyle = bsSingle
- Caption = 'Lookup Example'
- ClientHeight = 319
- ClientWidth = 415
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 415
- Height = 33
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object DBNavigator1: TDBNavigator
- Left = 8
- Top = 0
- Width = 240
- Height = 25
- DataSource = DMMain.OrdersSoruce
- TabOrder = 0
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 33
- Width = 415
- Height = 286
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 10
- TabOrder = 1
- object DBGrid1: TDBGrid
- Left = 10
- Top = 10
- Width = 395
- Height = 266
- Align = alClient
- Columns = <
- item
- FieldName = 'OrderNo'
- Title.Alignment = taCenter
- end
- item
- FieldName = 'CustNo'
- Title.Alignment = taCenter
- Width = 56
- end
- item
- FieldName = 'CustomerName'
- Title.Alignment = taCenter
- Title.Caption = 'Customer'
- Width = 133
- end
- item
- FieldName = 'EmployeeFirstName'
- Title.Alignment = taCenter
- Title.Caption = 'Emp - First'
- Width = 60
- end
- item
- FieldName = 'EmployeeLastName'
- Title.Alignment = taCenter
- Title.Caption = 'Emp - Last'
- Width = 80
- end
- item
- FieldName = 'EmployeeFullName'
- Title.Alignment = taCenter
- Title.Caption = 'Employee'
- Width = 100
- end
- item
- FieldName = 'EmpNo'
- Title.Alignment = taCenter
- end>
- DataSource = DMMain.OrdersSoruce
- TabOrder = 0
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- end
- end
- object MainMenu1: TMainMenu
- Left = 280
- object About1: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = About1Click
- end
- end
- end
-